home *** CD-ROM | disk | FTP | other *** search
/ Libris Britannia 4 / science library(b).zip / science library(b) / MEDICAL / 2608A.ZIP / GP.ZIP / FINDSM.SRC < prev    next >
Text File  |  1990-11-03  |  4KB  |  146 lines
  1. ;\|
  2. ;FINDSM.SRC     Translated from FINDSM.EDT by Roger Mathew's EDT2SRC Ver 4.11
  3. ;PATIENT  02:26:36 PM  15/ 1/90  |
  4. OPEN_FILES:
  5.     define(FIELD1|D|10||)
  6.     define(TD|S|8||)
  7.     define(WHAT|A|4||)
  8.     define(MENU_REC|A|65||15)
  9.     define(DOC|N|1||)
  10.     define(REC_CHOICE|N|2||)
  11.     define(A1|A|2||)
  12.     define(FIELD2|D|10||)
  13.     date(TD|G)
  14.     open(PATIENT||1|EXIT)
  15.     open(RECALLS||1|)
  16.     trap(S|G|SAVE_RECS)
  17.     trap(1|G|CHECK)
  18.     trap(D|I)
  19.     trap(C|I)
  20.     trap(Q|G|EXIT)
  21.     trap(I|G|EXIT)
  22. MOUNT_SCRS:
  23.     mount(PATIENT|S||)
  24. START:
  25.     enter(DOC|" 1234"|||N|Y|N|||N)
  26.     enter(WHAT||||N|N|N|||N)
  27.     enter(COD.PAT.NAME||||Y|N|N|||N)
  28.     find(G|COD.PAT.NAME|EXIT|)
  29.     RECORD.NUMBER = (COD.REF)
  30.     find(M|RECORD.NUMBER|EXIT|N)
  31. NEW:
  32.     enter(COD[1]||||N|N|N|||N)
  33.     gosub RECMENU
  34.     enter(COD.D[1]||||N|N|N|||N)
  35.     enter(SM_DATE||||N|N|N|||N)
  36.     enter(WHERE|"SFCHO"|||N|Y|N|||N)
  37. SAVE_RECS:
  38.     RECORD.NUMBER = (COD.REF)
  39.     find(M|RECORD.NUMBER|EXIT|N)
  40.     COD.PAT.NAME = (PATIENT.NAME)
  41.     COD.REF = (RECORD.NUMBER)
  42.     save(RECALLS|N|Y)
  43. CHECK:
  44.     clr(RECALLS|B)
  45.     clr(PATIENT|B)
  46.     find(N|RECALLS|EXIT|)
  47.     if WHAT = ("") do
  48.         {
  49.         if COD[1] = ("") goto CHECK
  50.         goto YESPLEASE
  51.         }
  52.     if COD[1] <> (WHAT) goto CHECK
  53. YESPLEASE:
  54.     RECORD.NUMBER = (COD.REF)
  55.     find(M|RECORD.NUMBER|EXIT|N)
  56.     if DOC <> (0) then if DOCTOR <> (DOC) goto CHECK
  57.     goto NEW
  58. CLR_RECS:
  59.     clr(PATIENT|B)
  60.     clr(RECALLS|B)
  61.     goto START
  62. EXIT:
  63.     run("recmenu")
  64. NEWX:
  65.     clr(RECALLS|B)
  66.     ret
  67. RECMENU:
  68.     MENU_REC[1] = (" A - (1) NEGATIVE                                         0101A")
  69.     MENU_REC[2] = (" B - (2) NEGATIVE 1/2 INFLAMMATORY CHANGES                0102B")
  70.     MENU_REC[3] = (" C - (3) NEGATIVE PREV CN1 AND CN2 AFTER TREATMENT        0103C")
  71.     MENU_REC[4] = (" D - (4) POSITIVE CN1 AND CN2                             0104D")
  72.     MENU_REC[5] = (" E - (HYS) HYSTERECTOMY RECALL DATE 15/12/99              0105E")
  73.     MENU_REC[6] = (" F - (DNA1) DID NOT ATTEND 1st RECALL                     0106F")
  74.     MENU_REC[7] = (" G - (DNA2) DID NOT ATTEND 2nd RECALL                     0107G")
  75.     MENU_REC[8] = (" H - (REF) REFUSED SMEAR                                  0108H")
  76.     MENU_REC[9] = (" I - (VIR) VIRGIN                                         0109I")
  77.     MENU_REC[10] = (" J - (****) CHECK NOTES AND UPDATE                        0110J")
  78.     MENU_REC[11] = (" K - (DONE) SMEAR DONE RESULT ?                           0111K")
  79.     menu(1|13|12|59||MENU_REC|REC_CHOICE|11|58|REC_MEN_R||"              SMEAR CODES     "|N)
  80.     if REC_CHOICE = (1) then COD[1] = ("1")
  81.     if REC_CHOICE = (2) then COD[1] = ("2")
  82.     if REC_CHOICE = (3) then COD[1] = ("3")
  83.     if REC_CHOICE = (4) then COD[1] = ("4")
  84.     if REC_CHOICE = (5) do
  85.         {
  86.         COD[1] = ("HYS")
  87.         COD.D[1] = (2451528)
  88.         ret
  89.         }
  90.     if REC_CHOICE = (6) then COD[1] = ("DNA1")
  91.     if REC_CHOICE = (7) then COD[1] = ("DNA2")
  92.     if REC_CHOICE = (8) do
  93.         {
  94.         COD[1] = ("REF")
  95.         COD.D[1] = (2451528)
  96.         ret
  97.         }
  98.     if REC_CHOICE = (9) do
  99.         {
  100.         COD[1] = ("VIR")
  101.         COD.D[1] = (2451528)
  102.         ret
  103.         }
  104.     if REC_CHOICE = (10) then COD[1] = ("****")
  105.     if REC_CHOICE = (11) then COD[1] = ("DONE")
  106. REC_MEN_R:
  107.     ret
  108. \STPATIENT 
  109.  
  110.  
  111.  
  112.  
  113.  
  114.  
  115.  
  116.  
  117.                                   ┌────────────────────────────────────────────┐
  118.                                   │                                            │
  119.                                   │ DOCTOR      :&                             │
  120.                                   │ WHAT CODE?  :&    eg ****                  │
  121.                                   │ PATIENT NAME:&                          <  │
  122.                                   │ ADDRESS     :&                             │
  123.                                   │ AREA        :&                             │
  124.                                   │ DOB         :&         <                   │
  125.                                   │                                            │
  126.                                   │        CODE :&                             │
  127.                                   │ RECALL DATE :&        Last Smear:&       <&│
  128.                                   └────────────────────────────────────────────┘
  129.                          ENTER WHAT CODE YOU ARE LOOKING FOR.tHEN PATIENT,S NAME
  130.                      AND PRESS RETURN. NEXT PATIENT WILL BE FOUND AUTOMATICALLY.
  131.                                              <END> key Find Next
  132.  
  133. \
  134. DOC
  135. WHAT
  136. COD.PAT.NAME
  137. ADDRESS1
  138. AREA
  139. DATE.OF.BIRTH
  140. COD[1]
  141. COD.D[1]
  142. SM_DATE
  143. WHERE
  144. \
  145.  
  146.